home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zj.d64 / proc.names < prev    next >
Text File  |  2007-03-01  |  3KB  |  124 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.NAMES"
  2. 0020 //   ╠╔╙╘ "PRC.NAMES"
  3. 0030 
  4. 0040 //        ╨ROGRAM BY ─ICK ╦LINGENS
  5. 0050 //         ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0060 //                        ╧CT 1986
  7. 0070 
  8. 0080 // ╘HE PROCEDURE LISTS ALL ╨╥╧├S
  9. 0090 // AND ╞╒╬├S OF WHICH THE DEFINING
  10. 0100 // PROGRAM LINES ARE NOT HIDDEN
  11. 0110 // AFTER USE OF THE PROCEDURE
  12. 0120 //
  13. 0130 //    WEGTOT(ENDLINE)
  14. 0140 //
  15. 0150 // IN THE FILE 'PRC.NONLIST'.
  16. 0160 
  17. 0170 // ─UTCH         ┼NGLISH
  18. 0180 // -------       -------
  19. 0190 // WEGTOT        HIDE
  20. 0200 // TERUG         REVEAL
  21. 0210 
  22. 0220 // ╘HE PROGRAM LINES IN THE PROCE-
  23. 0230 // DURE 'NAMES' MUST BE HIDDEN TOO
  24. 0240 // TO WORK PROPERLY WITHIN A PRO-
  25. 0250 // GRAM.
  26. 0260 
  27. 0270 ╨╥╧├ NAMES ├╠╧╙┼─
  28. 0280   //
  29. 0290   START:=$0800 //  OF ├╧═┴╠ PROGRAM
  30. 0300   
  31. 0310   ╥┼╨┼┴╘ 
  32. 0320     //
  33. 0330     HILIN#:=╨┼┼╦(START)
  34. 0340     LOLIN#:=╨┼┼╦(START+1)
  35. 0350     LINNO:=HILIN#*256+LOLIN#
  36. 0360     
  37. 0370     LENGTH#:=╨┼┼╦(START+2)
  38. 0380     TOKEN#:=╨┼┼╦(START+3)
  39. 0390     
  40. 0400     ├┴╙┼ TOKEN# ╧╞
  41. 0410     ╫╚┼╬ 112
  42. 0420       //
  43. 0430       // FOUND PROCEDURE
  44. 0440       //
  45. 0450       LOOFF#:=╨┼┼╦(START+4)
  46. 0460       HIOFF#:=╨┼┼╦(START+5)
  47. 0470       NAMOFF:=HIOFF#*256+LOOFF#
  48. 0480       
  49. 0490       FN$:=NAME$(NAMOFF)
  50. 0500       
  51. 0510       ╔╞ LINNO>10000 ╘╚┼╬
  52. 0520         //
  53. 0530         // LINE IS NOT HIDDEN, SO
  54. 0540         //
  55. 0550         ╨╥╔╬╘ " ╨╥╧├ ",FN$
  56. 0560         //
  57. 0570       ┼╬─╔╞ 
  58. 0580       
  59. 0590     ╫╚┼╬ 227,228,229
  60. 0600       //
  61. 0610       // FOUND FUNCTION
  62. 0620       //
  63. 0630       LOOFF#:=╨┼┼╦(START+4)
  64. 0640       HIOFF#:=╨┼┼╦(START+5)
  65. 0650       NAMOFF:=HIOFF#*256+LOOFF#
  66. 0660       
  67. 0670       FN$:=NAME$(NAMOFF)
  68. 0680       
  69. 0690       ╔╞ LINNO>10000 ╘╚┼╬
  70. 0700         //
  71. 0710         // LINE IS NOT HIDDEN, SO
  72. 0720         //
  73. 0730         ╨╥╔╬╘ " ╞╒╬├ ",FN$,
  74. 0740         //
  75. 0750         // FOLLOWED BY TYPE CHARACTER
  76. 0760         //
  77. 0770         ├┴╙┼ TOKEN# ╧╞
  78. 0780         ╫╚┼╬ 227 //          REAL FUNC
  79. 0790           ╨╥╔╬╘ ""
  80. 0800           
  81. 0810         ╫╚┼╬ 228 //       INTEGER FUNC
  82. 0820           ╨╥╔╬╘ "#"
  83. 0830           
  84. 0840         ╫╚┼╬ 229 //        STRING FUNC
  85. 0850           ╨╥╔╬╘ "$"
  86. 0860           
  87. 0870         ┼╬─├┴╙┼ 
  88. 0880         //
  89. 0890       ┼╬─╔╞ 
  90. 0900       
  91. 0910     ╧╘╚┼╥╫╔╙┼ 
  92. 0920       // FOUND SOMETHING ELSE
  93. 0930       
  94. 0940     ┼╬─├┴╙┼ 
  95. 0950     
  96. 0960     //
  97. 0970     // NEXT ITEM IN NAME TABLE
  98. 0980     //
  99. 0990     START:+LENGTH#
  100. 1000     //
  101. 1010   ╒╬╘╔╠ LENGTH#=0 //   END OF TABLE
  102. 1020   
  103. 1030   ╞╒╬├ NAME$(AD) ├╠╧╙┼─
  104. 1040     //
  105. 1050     // AD IS OFFSET IN NAME TABLE
  106. 1060     //
  107. 1070     NAMTAB:=$18 //   PNTR NAME TABLE
  108. 1080     LONAM#:=╨┼┼╦(NAMTAB)
  109. 1090     HINAM#:=╨┼┼╦(NAMTAB+1)
  110. 1100     NAMSTART:=HINAM#*256+LONAM#+AD
  111. 1110     NAMLEN#:=╨┼┼╦(NAMSTART)-4
  112. 1120     
  113. 1130     N$:=""
  114. 1140     
  115. 1150     ╞╧╥ T#:=1 ╘╧ NAMLEN# ─╧
  116. 1160       N$:+├╚╥$(╨┼┼╦(NAMSTART+T#+3))
  117. 1170     ┼╬─╞╧╥ T#
  118. 1180     
  119. 1190     ╥┼╘╒╥╬ N$
  120. 1200     //
  121. 1210   ┼╬─╞╒╬├ NAME$
  122. 1220   //
  123. 1230 ┼╬─╨╥╧├ NAMES
  124.